home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Grab Bag
/
Shareware Grab Bag.iso
/
007
/
paslib.arc
/
EXTENDED.INC
< prev
next >
Wrap
Text File
|
1980-01-02
|
2KB
|
44 lines
FUNCTION EXTENDED : TXT2;
VAR
KEY1 : CHAR;
KEY2 : CHAR;
KEYPR: STRING[2];
X : BOOLEAN;
Y : INTEGER;
BEGIN
KEY1 := ' ';
IF NOT EOF(KBD) THEN
BEGIN
READ(KBD,KEY1);
IF KEY1 = ^[ THEN
BEGIN
KEY2 := ' ';
KEYPR := ' ';
READ(KBD,KEY2);
IF KEY2 = ';' THEN KEYPR := 'F1'; {F1}
IF KEY2 = '<' THEN KEYPR := 'F2'; {F2}
IF KEY2 = '=' THEN KEYPR := 'F3'; {F3}
IF KEY2 = '>' THEN KEYPR := 'F4'; {F4}
IF KEY2 = '?' THEN KEYPR := 'F5'; {F5}
IF KEY2 = '@' THEN KEYPR := 'F6'; {F6}
IF KEY2 = 'A' THEN KEYPR := 'F7'; {F7}
IF KEY2 = 'B' THEN KEYPR := 'F8'; {F8}
IF KEY2 = 'C' THEN KEYPR := 'F9'; {F9}
IF KEY2 = 'D' THEN KEYPR := 'F0'; {F10}
IF KEY2 = ^[ THEN KEYPR := 'ES'; {ESCAPE}
IF KEY2 = 'H' THEN KEYPR := 'UP'; {UP ARROW}
IF KEY2 = 'I' THEN KEYPR := 'PU'; {PGUP}
IF KEY2 = 'M' THEN KEYPR := 'RT'; {RT ARROW}
IF KEY2 = 'Q' THEN KEYPR := 'PD'; {PGDN}
IF KEY2 = 'P' THEN KEYPR := 'DN'; {DN ARROW}
IF KEY2 = 'O' THEN KEYPR := 'EN'; {END}
IF KEY2 = 'K' THEN KEYPR := 'LT'; {LT ARROW}
IF KEY2 = 'G' THEN KEYPR := 'HM'; {HOME}
IF KEY2 = 'R' THEN KEYPR := 'IN'; {INSERT}
IF KEY2 = 'S' THEN KEYPR := 'DE'; {DELETE}
WRITE(KEYPR);
END;
END;
END;